home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / 422mods.zip / AQUA06.422 < prev    next >
Text File  |  1993-02-20  |  28KB  |  501 lines
  1. Here's a fun one to try...
  2. Aquamaestro #1 @7704
  3. Wed Feb 17 04:25:41 1993
  4.  
  5. ┌──────────────────────────────────────────────────────────────────────┐
  6. │      Mod Name: AQUA06.MOD                Author: AquaMaestro 1@7704  │
  7. │    Difficulty: █▒▒▒▒▒▒                    Date : 2/15/92             │
  8. │      Modified: CONIO.C                                               │
  9. │ WWIV Version : 4.22+                                                 │
  10. │                                                                      │
  11. │ Description  :  Ever get a real loser, who has muddled his way into  │
  12. │                 your BBS, gave bogus information, and all that?      │
  13. │                 This mod allows you to use Control-F9 to "nuke"      │
  14. │                 them into oblivion.  It will give you the option to  │
  15. │                 either hang up, or to hang up AND delete the user's  │
  16. │                 account.  Sounds fiendishly useful, eh?              │
  17. └──────────────────────────────────────────────────────────────────────┘
  18.  
  19. Key:
  20. /*==*/  Existing line
  21. /*++*/  Add this line
  22.  
  23.  
  24. Step 1:
  25.  
  26. Back up your source.  I don't care what your excuse is.
  27.  
  28.  
  29. Step 2:
  30.  
  31. Load up CONIO.C, and run a search for "case 68".  Immediately after the
  32. "break;", insert this block:
  33.  
  34.  
  35. /*==*/      } else
  36. /*==*/        chatting=0;
  37. /*==*/      break;
  38. /*++*/           case 102: /* CTRL F9 */
  39. /*++*/        if (using_modem) {            /* Disables remote typing */
  40. /*++*/        incom=(!incom);
  41. /*++*/        dump();
  42. /*++*/        tleft(0);
  43. /*++*/        }
  44. /*++*/         outs("\r\n\r\nDelete? ");
  45. /*++*/         if (yn()) {
  46. /*++*/         printfile("NUKE");
  47. /*++*/         hangup=1;
  48. /*++*/         deluser(usernum);
  49. /*++*/         dtr(0);
  50. /*++*/         } else {
  51. /*++*/         printfile("DROP");
  52. /*++*/         hangup=1;
  53. /*++*/         dtr(0);
  54. /*++*/         }
  55. /*++*/         break;
  56. /*==*/    case 71: /* HOME */
  57. /*==*     if (chatting==1) {
  58. /*==*/        if (chat_file)
  59. /*==*/          chat_file=0;
  60.  
  61.  
  62. Step 3:
  63.  
  64. Save CONIO.C and recompile.  Then load up TheDraw, and make yourself a couple
  65. ANSI screens, NUKE.ANS and DROP.ANS.  NUKE.ANS will be displayed when you
  66. "nuke" a user, and DROP.ANS will be displayed when you drop carrier (a lot
  67. more vividly than F5).  I've UUencoded mine, and stuck it on the end.  You
  68. can use that, or make another one of your own.
  69.  
  70.  
  71. Disclaimer:
  72.  
  73. Not only do I disavow all responsibility for what this mod may do with your
  74. source, but I also disavow any responsibility for what you may do with this
  75. mod.  Simple enough, right?
  76.  
  77.  
  78. NUKE.ANS -- UUencoded:
  79. ======================
  80.  
  81. begin 400 nuke.ans
  82. M&ULT,&T;6S)*&ULT,$,;6S [,3LS,&W<W-S<W-S<W-S<W-S<&ULR.SA(&ULP
  83. M;=P;6S(Y0QM;,3LS,&W<V]O;V]O;V]O;V]O;V]O;V]O?&ULS.S)(&ULP.S,V
  84. M;=S<&ULT-VVRLK(;6S0P;=T;6S,W;=L;6S,V;=X;6S0W;;*RLK*RLK*R&ULT
  85. M,&W<W-P;6S$U0QM;,3LS,&W<V]O;V]O;V]O;V]O;V]O;V]\;6S0[,D@;6S [
  86. M,S9MWQM;,T,;6S0W;;(;6S0P;=T;6S,W;=L;6S,V;=X;6S0W;;*RLK*RLAM;
  87. M-#!MV]_?W]\;6S0W;;*R&ULT,&W<&ULQ,$,;6W,-"AM;=1M;,3LS,&W<V]O;
  88. MV]O;V]O;V]O;V]O?WQM;-3LW2!M;,#LS-FW=&ULS-VW;&ULS-FW>&ULT-VVR
  89. MLAM;-#!MWQM;.4/?&ULT-VVR&UM#&ULS,#LT-&W?W]_?WR @(" ;6S$[-#!M
  90. MV]O?W]_?W]_?W]_;V]O?&ULT-&T@(" @&ULP.S,P.S0T;=_?W]_?&ULV.SA(
  91. M&ULS-SLT,&W;&ULS-FW>WQM;.$,;6S,P.S0T;=S?(" @(" @(-_?(-\@(!M;
  92. M,3LT,&W;&ULQ,$/?V]L;6S0T;2 @(" ;6S [,S [-#1MW"#<(" @(" @W!M;
  93. M-SLX2!M;-#!M&UMS#0H;6W4;6S,W.S0P;=L;6S$R0QM;,S [-#1MW" @(-\@
  94. MWR @(" @(!M;,3LT,&W;&ULS0QM;,#LS,6W?&ULS0]\;6S-#&ULQ.S,P;=O;
  95. M&ULT-&T@&ULP.S,P.S0T;=\@WQM;0]P;6T/<&UM#&ULS-#LT,&W<W!M;,3LS
  96. M,3LT-&T@&ULX.SA(&ULP;=L;6S$T0QM;,S [-#1MW-\@(" @W]_<(" ;6S%M
  97. MVQM;-#!MW!M;,3!#V]L;6S [,S [-#1MW" @(!M;,S0[-#!MVQM;,3LS,3LT
  98. M-&T@&ULP.S,T;=\;6S$[,S$[-#1M(!M;,#LS-&W<&UMS#0H;6W4;6S$[,S$[
  99. M-#1M(!M;0QM;,#LS,#LT-&W<&ULY.SA(&ULS-SLT,&W;&ULQ-D,;6S,P.S0T
  100. M;=S?(-\@("#?(" ;6S%MV]L;6S=#&ULT,&W<V]L;6S [,S [-#1MW"#?(" ;
  101. M6S,T.S0P;=_;VQM;,3LS,3LT-&T@&ULQ,#LX2!M;,&W;&ULQ.$,;6S,P.S0T
  102. M;=S<(-\@VR @(!M;,3LT,&W?V]P;6S1#VQM;-#1MV]\@&UM#&ULP.S,P.S0T
  103. M;=\@(" ;6S,T.S0P;=\;6S$[,S$[-#1M(!M;0QM;,#LS-&W?&ULQ,3LW2!M;
  104. M,3LS-VW<W-P;6S(Q0QM;<PT*&UMU&ULP.S,P.S0T;=S<W" @(-\;6S%MWQM;
  105. M-#!MV]O;VQM;-#1MVR @&ULP.S,P.S0T;=\@(" @W!M;,3([-D@;6S$[,S<[
  106. M-#!MW]S;V]L;6S0T;2 @&ULP.S,P.S0T;=P;6S$V0]_?W]_?W]P@(" ;6T,;
  107. M6S%MVQM;0QM;,S%M(!M;,#LS-&W;W]P;6S$[,S$[-#1M(!M;,#LS-&W?&ULQ
  108. M,SLV2!M;,3LS-VW?W-O;WQM;-#1M(!M;,#LS,#LT-&W>W2#?&ULR0]L;6S$P
  109. M0R @(-S<W-S?W]S<&UM#&ULQ;=L;6T,;6S,Q;2 ;6T,@&ULP.S,T;=P;6W,-
  110. M"AM;=1M;,3LS,3LT-&T@&UM#(" ;6S [,S [-#1MWQM;,30[.$@;6S,W.S0P
  111. M;=L;6S)#&ULT-&T@&ULS,&W;(" @(-O<&ULY0]S;V]L@(" @V]O;(!M;,T/?
  112. M&ULR0QM;,S0[-#!MW!M;,S [-#1MVQM;0]O;VQM;0]O<&ULR0]P;6S$U.SA(
  113. M&ULS-SLT,&W;&ULR0QM;-#1M(!M;,S!MVR @("#;V]\@W-O;W" @WMO;V]L@
  114. M("#;V]O?(!M;0QM;,3LS,6T@&UM#&ULP.S,P.S0T;=L;6T/;&UM#VQM;0]_;
  115. MVQM;0]_;VQM;0]L;6S$V.SA(&ULT,&T;6W,-"AM;=1M;,S<[-#!MVQM;,D,;
  116. M6S,P.S0T;=[=(" @V]O?(" @(-_;VR @V]O;W2 @(-O;WR @&UM#&ULQ.S,Q
  117. M;2 ;6T,;6S [,S [-#1MVQM;0QM;,S0[-#!MW!M;0QM;,3LS,3LT-&T@&ULS
  118. M0QM;,#LS,#LT-&W?&ULT0QM;,S0[-#!MW!M;,3<[.$@;6S,W;=L;6S)#&ULS
  119. M,#LT-&W=(" @V]O?(" @("#<(-_;(-O;VR @(-O;WR @(-S;V]O?(" @&UM#
  120. M&ULQ.S,Q;2 ;6T,@&UM#&ULP.S,T;=P;6S-#&ULS,#LT-&W;&ULQ.#LX2!M;
  121. M-#!M&UMS#0H;6W4;6S,W.S0P;=L;6S)#&ULT-&T@(" ;6S,P;=O;WR @("#<
  122. MV]O?(-\@V]O;("#<V]\@("#<V]\@(-\@W" ;6T,;6S,T.S0P;=P;6T,;6S,P
  123. M.S0T;=L;6T/;&UM#WQM;0]L;6T/?&ULQ.3LX2!M;,S<[-#!MVQM;,D,;6S0T
  124. M;2 @&ULS,&W;WR @("#<V]\@(" @("#?V]\@(-O?("#<W]\@(" @W-S;VQM;
  125. M,T/;&UM#WQM;0]L;6T/;&ULR,#LX2!M;,S<[-#!MVQM;,T,;6S,P.S0T;=O?
  126. M("#<V]\@(" @(" @W-P@VR @W-\@W-\@(-S<V]O;&ULT,&T;6W,-"AM;=1M;
  127. M-#1MV]O;VQM;,S0[-#!MW!M;,S [-#1MWQM;0]L;6T/;&UM#VQM;0]\;6S(Q
  128. M.SA(&ULS-SLT,&W;&ULS0QM;-#1M(!M;,S!MW-S?(" @(-S<W-O;V]O;(-L@
  129. MVR#<W]S;V]O;V]O;V]_?W]L;6T/;&UM#VQM;-4,;6S$[,S%M(!M;,3([-#E(
  130. M&ULT,&W2Q,3$Q+\;6S$S.S0Y2+H;6S1#LQM;,30[-#E(Q\3$Q,3!OQM;,34[
  131. M-#E(NAM;-4.S&ULQ-CLT.4C0Q,3$Q,39&ULQ,CLU-TC2&ULU0\(;6S$S.S4W
  132. M2+H;6S5#LQM;,30[-3=(T\3$Q,3$M T*&ULQ-3LV,TBS&ULQ-CLU-TC3Q,3$
  133. MQ,39&ULQ,CLV-4C2Q,3$Q,2_&ULQ,SLV-4BZ&ULQ-#LV-4C'Q,0;6S$U.S8U
  134. M2+H;6S$V.S8U2-#$Q,3$Q-D;6S$R.S<S2-(;6S$S.S<S2+H;6S$T.S<S2+H;
  135. M6S$U.S<S2+H;6S$V.S<S2&\;6S$R.S<U2-(;6S$S.S<U2+H;6S$T.S<U2+H;
  136. M6S$U.S<U2+H;6S$V.S<U2&\;6S$R.S<W2-(;6S$S.S<W2+H;6S$T.S<W2+H;
  137. M6S$U.S<W2+H;6S$V.S<W2&\;6S<[,SA(&ULS,FW?&ULS0]\;6S5$&ULP.S,Q
  138. M;=\;6S-#&UMS#0H;6W7?&ULU1!M;,3LS,FW?&ULS0]\;6S5$&ULU;=\;6S-#
  139. DWQM;-#)$&ULQ-4(;6S [,3LS,&TN&ULQ1" ;6S!M&ULR-35$
  140.  
  141. end
  142.  
  143.  
  144. DROP.ANS -- UUencoded:
  145. ======================
  146.  
  147. begin 400 drop.ans
  148. M#0H;6S0P;1M;,DH;6S0[,S=(&ULP;2 @(" @(" @(" @(!M;-3LR,D@;6S$[
  149. M,S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&T;6W,-"AM;=1M;-#!MLML;6S$[
  150. M-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&VRVQM;,3LT,6W;LK&P&ULP.S,Q.S0Q
  151. M;=L;6S0P;;+;&UMS#0H;6W4;6S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&VR
  152. M&ULV.S$S2!M;,3LS,FW:Q,3$Q,3$Q,0;6S,Q.S0Q;=NRL; ;6S0P;1M;<PT*
  153. M&UMU&ULP.S,Q.S0Q;=L;6S0P;;+;&ULQ.S0Q;=NRL; ;6S [,S$[-#%MVQM;
  154. M-#!MLML;6S$[-#%MV[*QL!M;-#!M&UMS#0H;6W4;6S [,S$[-#%MVQM;-#!M
  155. MLML;6S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&VR&ULW.S$S2!M;,3LS,FVS
  156. M&ULR0QM;<PT*&UMU&ULS-VW<W-S<W-P;6S,Q.S0Q;=NRL; ;6S [,S$[-#%M
  157. MVQM;-#!MLML;6S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&T;6W,-"AM;=1M;
  158. M-#!MLML;6S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&VRVQM;,3LT,6W;LK&P
  159. M&ULP.S,Q.S0Q;=L;6S0P;;(-"AM;.#LQ,T@;6S$[,S)MP,3$&ULS-VW;&UM#
  160. M&ULS,&W<W!M;0QM;,S=MVQM;,S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&T;
  161. M6W,-"AM;=1M;-#!MLML;6S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&VRVQM;
  162. M,3LT,6W;LK&P&ULP.S,Q.S0Q;=L;6S0P;;+;&UMS#0H;6W4;6S$[-#%MV[*Q
  163. ML!M;,#LS,3LT,6W;&ULT,&VR&ULY.S$V2!M;,3LS-VW;&UM#&ULS,&W<W!M;
  164. M0QM;,S=MVQM;<PT*&UMU&ULS,3LT,6W;LK&P&ULP.S,Q.S0Q;=L;6S0P;;+;
  165. M&ULQ.S0Q;=NRL; ;6S [,S$[-#%MVQM;-#!MLML;6W,-"AM;=1M;,3LT,6W;
  166. MLK&P&ULP.S,Q.S0Q;=L;6S0P;;+;&ULQ.S0Q;=NRL; ;6S [,S$[-#%MVQM;
  167. M-#!MLAM;,3 [,39(&UMS#0H;6W4;6S$[,S=MVQM;0QM;,S!MW-P;6T,;6S,W
  168. M;=O?W]_?W]_?W]_?W]_?W]_?W]_;&ULP.S,Q;;+;&ULQ.S0Q;=NR&ULT,&T;
  169. M6W,-"AM;=1M;-#%ML; ;6S [,S$[-#%MVQM;-#!MLAM;,3$[,39(&ULQ.S,W
  170. M;=L;6T,;6S,P;=S<&UM#&ULS-VW;&UM#V]_?VQM;0QM;<PT*&UMU&ULP;=P;
  171. M6T,;6S%MV]_?VQM;0]O?W]L;6T/;&ULP.S,Q;;+;&ULQ.S0Q;=NRL; ;6S [
  172. M,S$[-#%MVQM;-#!ML@T*&ULQ,CLQ-D@;6S$[,S=MVQM;0QM;,S!MW-P;6T,;
  173. M6S,W;=L;6T/;&ULR0]L;6S-#VQM;,D/;&UM#VQM;,D/;&UM#VQM;<PT*&UMU
  174. M&ULP.S,Q;;+;&ULQ.S0Q;=NRL; ;6S [,S$[-#%MVQM;-#!MLAM;,3,[,39(
  175. M&ULQ.S,W;=L;6T,;6S,P;=S<&UM#&UMS#0H;6W4;6S,W;=L;6T/;&ULR0]L;
  176. M6T,;6S!MW!M;0QM;,6W;&ULR0]L;6T/;&ULR0]L;6T/;&ULP.S,Q;;+;&UMS
  177. M#0H;6W4;6S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&VR&ULQ-#LQ-D@;6S$[
  178. M,S=MVQM;0QM;,S!MW-P;6T,;6S,W;=L;6T/?W]\;6W,-"AM;==\;6S-#W]_?
  179. MWQM;0]_?W]\;6T/;&ULP.S,Q;;+;&ULQ.S0Q;=NRL; ;6S [,S$[-#%MVQM;
  180. M-#!MLAM;,34[,39(&UMS#0H;6W4;6S$[,S=MVQM;0QM;,S!MW-P;6T,;6S,W
  181. M;=L;6S0W;=_?W]_?W]_?W]_?W]_?W]_?W]\;6S [,S%MLML;6W,-"AM;=1M;
  182. M,3LT,6W;LK&P&ULP.S,Q.S0Q;=L;6S0P;;(;6S$V.S$V2!M;,3LS-VW;&UM#
  183. M&ULS,&W<W!M;0QM;,S=MVQM;,S%MVQM;<PT*&UMU&ULT,6VRL; ;6S [,S$[
  184. M-#%MVQM;-#!MLML;6S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&VRVQM;,3LT
  185. M,6W;LAM;-#!M&UMS#0H;6W4;6S0Q;;&P&ULP.S,Q.S0Q;=L;6S0P;;+;&ULQ
  186. M.S0Q;=NRL; ;6S [,S$[-#%MVQM;-#!MLAM;,3<[,3-(&ULQ;=K$Q!M;<PT*
  187. M&UMU&ULS-VW;W-S<W-L;6S,Q;=L;6S0Q;;*QL!M;,#LS,3LT,6VR&ULT,&VR
  188. MVQM;,3LT,6W;LK&P&ULP.S,Q.S0Q;1M;-#!M&UMS#0H;6W4;6S0Q;=L;6S0P
  189. M;;+;&ULQ.S0Q;=NRL; ;6S [,S$[-#%MVQM;-#!MLML;6S$[-#%MV[*QL!M;
  190. M,#LS,3LT,6W;&ULT,&T;6W,-"AM;=1M;-#!MLAM;,3@[,3-(&ULQ;;,;6S)#
  191. M&ULP;=_?W]_?WQM;,3LS,3LT,6W;LK&P&ULP.S,Q.S0Q;=L;6S0P;;+;&UMS
  192. M#0H;6W4;6S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&VRVQM;,3LT,6W;LK&P
  193. M&ULP.S,Q.S0Q;=L;6S0P;;+;&UMS#0H;6W4;6S$[-#%MV[*QL!M;,#LS,3LT
  194. M,6W;&ULT,&VR&ULQ.3LQ,T@;6S%MP,3$Q,3$Q,3$&ULT,6W;LK&P&ULT,&T;
  195. M6W,-"AM;=1M;,#LS,3LT,6W;&ULT,&VRVQM;,3LT,6W;LK&P&ULP.S,Q.S0Q
  196. M;=L;6S0P;;+;&ULQ.S0Q;=NRL; ;6S0P;1M;<PT*&UMU&ULP.S,Q.S0Q;=L;
  197. M6S0P;;+;&ULQ.S0Q;=NRL; ;6S [,S$[-#%MVQM;-#!MLAM;,C [,C)(&ULQ
  198. M.S0Q;=NRL1M;-#!M&UMS#0H;6W4;6S0Q;; ;6S [,S$[-#%MVQM;-#!MLML;
  199. M6S$[-#%MV[*QL!M;,#LS,3LT,6W;&ULT,&VRVQM;,3LT,6W;LK&P&ULT,&T;
  200. M6W,-"AM;=1M;,#LS,3LT,6W;&ULT,&VRVQM;,3LT,6W;LK&P&ULP.S,Q.S0Q
  201. M;=L;6S0P;;(;6S$R.S,V2!M;,3LS-VW<#0H;6S$S.S,U2-\;6S$R.S,W2-P;
  202. M6S$S.S,U2" ;6S@[,3A(W-P@&ULY.S(P2" ;6S$P.S(P2" ;6S$Q.S(P2" ;
  203. M6S$R.S(P2" -"AM;,3,[,C!((!M;,30[,C!((!M;,34[,C!((!M;,38[,C!(
  204. M(!M;.#LR,$@@&ULY.S(P2" ;6S$P.S(P2" ;6S$Q.S(P2" -"AM;,3([,C!(
  205. M(!M;,3,[,C!((!M;,30[,C!((!M;,34[,C!((!M;,38[,C!((!M;.#LR,$@@
  206. M&ULY.S(P2" ;6S$P.S(P2" -"AM;,3$[,C!((!M;,3([,C!((!M;,3,[,C!(
  207. M(!M;,30[,C!((!M;,34[,C!((!M;,38[,C!((!M;.#LR,$@@&ULY.S(P2" -
  208. M"AM;,3 [,C!((!M;.3LQ-T@;6S!M(!M;,3 [,3=((!M;,3$[,3=((!M;,3([
  209. M,3=((!M;,3,[,3=((!M;,3=#&ULQ;=L-"AM;.3LQ.$C<W" ;6S$P.S(P2" ;
  210. M6S$Q.S(P2" ;6S$R.S(P2" ;6S$S.S(P2" ;6S$T.S(P2" ;6S$U.S(P2" ;
  211. M6S$V.S(P2!M;<PT*&UMU(!M;.#LR,$@@&ULY.S(P2" ;6S%$(!M;,3 [,C!(
  212. M(!M;,3$[,C!((!M;,3([,C!((!M;,3,[,C!((!M;,30[,C!(( T*&ULQ-3LR
  213. M,$@@&ULQ-CLR,$@@&ULX.S(P2" ;6SD[,C!((!M;,3 [,C!((!M;,3$[,C!(
  214. M(!M;,3([,C!((!M;,3,[,C!(( T*&ULQ-#LR,$@@&ULQ-3LR,$@@&ULQ-CLR
  215. M,$@@&ULX.S(P2" ;6SD[,C!((!M;,3 [,C!((!M;,30[,3=(&ULP;2 -"AM;
  216. M,34[,3=((!M;,38[,3=((!M;,34[,3=((!M;,30[,3=((!M;,3([,S5(&ULQ
  217. M;2 @&ULQ,SLS-4C<&ULQ1" ;6S$T.S,U2!M;<PT*&UMU(!M;,3([,S=((!M;
  218. M,30[,S9((" ;6S$P.S$X2-S<(!M;,3$[,C!((!M;,3([,C!((!M;,3,[,C!(
  219. M(!M;,30[,C!(( T*&ULQ-3LR,$@@&ULQ-CLR,$@@&ULX.S(P2" ;6SD[,C!(
  220. M(!M;,3 [,C!((!M;,3$[,C!((!M;,3([,C!((!M;,3,[,C!(( T*&ULQ-#LR
  221. M,$@@&ULQ-3LR,$@@&ULQ-CLR,$@@&ULX.S(P2" ;6SD[,C!((!M;,3 [,C!(
  222. M(!M;,3$[,C!((!M;,3 [,C!(( T*&ULQ,3LR,$@@&ULQ,CLR,$@@&ULQ,SLR
  223. M,$@@&ULQ-#LR,$@@&ULQ-3LR,$@@&ULQ-CLR,$@@&ULX.S(P2" ;6SD[,C!(
  224. M( T*&ULQ,#LR,$@@&ULQ-#LQ-T@;6S!M(!M;,3,[,3=((!M;,3([,3=((!M;
  225. M,3$[,3=((!M;,3 [,3=((!M;,3([,S5(&ULQ;=O<#0H;6S$S.S,U2-\;6S%$
  226. MVQM;,3([,SA(WQM;,30[,S5(W]\;6S$R.S,X2" ;6S)$W!M;,30[,S=(WQM;
  227. M,T'?&ULQ,CLS.$C<#0H;6S$Q.S$X2!M;,#LS,6W<W!M;,3LS-VT@&ULQ,CLR
  228. M,$@@&ULQ,SLR,$@@&ULQ-#LR,$@@&ULQ-3LR,$@@&ULQ-CLR,$@@#0H;6S@[
  229. M,3=((!M;.3LQ-T@@&ULQ,#LQ-T@@&ULQ,3LQ-T@@&ULQ,CLQ-T@@&ULQ,SLQ
  230. M-T@@&ULQ-#LQ-T@@&ULQ-3LQ-T@@#0H;6S$V.S$W2" ;6S@[,C!((!M;.3LR
  231. M,$@@&ULQ,#LR,$@@&ULQ,3LR,$@@&ULQ,CLR,$@@&ULQ,3LR,$@;6S [,S%M
  232. M( T*&ULQ,CLR,$@@&ULQ,SLR,$@@&ULQ-#LR,$@@&ULQ-3LR,$@@&ULQ-CLR
  233. M,$@@&ULX.S(P2" ;6SD[,C!((!M;,3 [,C!(( T*&ULQ,3LR,$@@&ULQ,#LQ
  234. M-T@;6S,W;2 ;6SD[,3=((!M;.#LQ-T@@&ULR0R ;6SD[,C!((!M;,3,[,S5(
  235. M&ULQ;2 -"AM;,3([,3A(&ULP.S,Q;=S<&ULQ.S,W;2 ;6S$S.S(P2" ;6S$T
  236. M.S(P2" ;6S$U.S(P2" ;6S$V.S(P2" ;6S@[,3=(( T*&ULY.S$W2" ;6S$P
  237. M.S$W2" ;6S$Q.S$W2" ;6S$R.S$W2" ;6S$S.S$W2" ;6S$T.S$W2" ;6S$U
  238. M.S$W2" ;6S$V.S$W2" -"AM;.#LR,$@@&ULY.S(P2" ;6S$P.S(P2" ;6S$Q
  239. M.S(P2" ;6S$R.S(P2" ;6S$S.S(P2" ;6S$R.S(P2!M;,#LS,6T@#0H;6S$S
  240. M.S(P2" ;6S$T.S(P2" ;6S$U.S(P2" ;6S$V.S(P2" ;6S@[,C!((!M;.3LR
  241. M,$@@&ULQ,#LR,$@@&ULQ,3LR,$@@#0H;6S$R.S(P2" ;6S$P.S(P2!M;,S=M
  242. M(!M;,3$[,C!((!M;,3([,C!((!M;,3,[,C!((!M;,30[,C!((!M;,31#&ULQ
  243. M;2 -"AM;,3$[,SA((!M;,30[,S9((!M;,T$@&ULQ-#LS-T@@&ULR0=L;6S$Q
  244. M.S,V2" ;6T/;&ULQ,SLQ.$@;6S [,S%MW-P;6W,-"AM;=1M;,3LS-VT@&ULQ
  245. M-#LR,$@@&ULQ-3LR,$@@&ULQ-CLR,$@@&ULX.S$W2" ;6SD[,3=((!M;,3 [
  246. M,3=((!M;,3$[,3=(( T*&ULQ,CLQ-T@@&ULQ,SLQ-T@@&ULQ-#LQ-T@@&ULQ
  247. M-3LQ-T@@&ULQ-CLQ-T@@&ULR0R ;6S$U.S(P2" ;6S$T.S(P2" -"AM;,3,[
  248. M,C!((!M;,3([,C!((!M;,3$[,C!((!M;,3 [,C!((!M;,3,[,C!(&ULP.S,Q
  249. M;2 ;6S$T.S(P2" ;6S$U.S(P2" -"AM;,38[,C!((!M;.#LR,$@@&ULY.S(P
  250. M2" ;6S$P.S(P2" ;6S$Q.S(P2" ;6S$R.S(P2" ;6S$S.S(P2" ;6S$U.S(P
  251. M2!M;<PT*&UMU&ULS-VT@&ULQ-CLR,$@@&ULT1" ;6S$U.S$W2" ;6S$T.S$W
  252. M2" ;6S$Q.S,U2!M;,6W?&ULQ,CLS-4C<&ULQ-#LS-4C?&UMS#0H;6W4;6S-!
  253. MWQM;,30[,S9(W]\;6S$Q.S,W2-\;6S$T.S$X2!M;,S%MW-P;6S9!&ULS-VT@
  254. M&ULT1" ;6SD[,3=(( T*&ULQ,#LQ-T@@&ULQ,3LQ-T@@&ULQ,CLQ-T@@&ULQ
  255. M,SLQ-T@@&ULQ-#LQ-T@@&ULQ-3LQ-T@@&ULQ-CLQ-T@@&ULR0R -"AM;,34[
  256. M,C!((!M;,30[,C!((!M;,3,[,C!((!M;,3([,C!((!M;,3$[,C!((!M;,3 [
  257. M,C!((!M;.3LR,$@@&ULX.S(P2" ;6W,-"AM;=1M;-$0@&ULQ-#LR,$@;6S,Q
  258. M;2 ;6S$U.S(P2" ;6S$V.S(P2" ;6S@[,C!((!M;.3LR,$@@&ULQ,#LR,$@@
  259. M#0H;6S$Q.S(P2" ;6S$R.S(P2" ;6S$S.S(P2" ;6S$T.S(P2" ;6S(P1!M;
  260. M,3,[,3=(&ULP;2 ;6S$R.S$W2" ;6S$Q.S$W2" -"AM;,3 [,3=((!M;.3LQ
  261. M-T@@&ULQ,SLS-4@;6S%MWQM;,D/<&ULT1-L;6S)#(!M;,34[,3A(&ULS,6W<
  262. MW!M;.3LQ-T@;6S,W;1M;<PT*&UMU(!M;,3 [,3=((!M;,3$[,3=((!M;,3([
  263. M,3=((!M;,3,[,3=((!M;,30[,3=((!M;,34[,3=((!M;,38[,3=((!M;,D,@
  264. M#0H;6S$U.S(P2" ;6S$T.S(P2" ;6S$S.S(P2" ;6S$R.S(P2" ;6S$Q.S(P
  265. M2" ;6S$P.S(P2" ;6SD[,C!((!M;.#LR,$@@&UMS#0H;6W4;6S1$(!M;.3LQ
  266. M-T@@&ULQ,#LQ-T@@&ULQ-3LR,$@;6S,Q;2 ;6S$V.S(P2" ;6S@[,C!((!M;
  267. M.3LR,$@@&ULQ,#LR,$@;6W,-"AM;=2 ;6S$Q.S(P2" ;6S$R.S(P2" ;6S$S
  268. M.S(P2" ;6S$T.S(P2" ;6S$U.S(P2" ;6S@[,3=(&ULP;2 ;6S)#( T*&ULY
  269. M.S(P2" ;6S$P.S(P2" ;6S$Q.S(P2" ;6S$T0QM;,6T@&ULQ,CLS-4@@&ULQ
  270. M,SLS-4@@&ULQ-#LS-4@@&ULR02 -"AM;,30[,S9((!M;,D$@&UM"VQM;,30[
  271. M,S=((!M;,38[,3A(&ULU.S,Q;=S<&ULQ,3LQ-T@;6S [,6T@&ULQ,CLQ-T@@
  272. M#0H;6S$S.S$W2" ;6S$T.S$W2" ;6S$U.S$W2" ;6S$V.S$W2" ;6S)#(!M;
  273. M,34[,C!((!M;,30[,C!((!M;,3,[,C!(( T*&ULQ,CLR,$@@&ULQ,3LR,$@@
  274. M&ULQ,#LR,$@@&ULY.S(P2" ;6S@[,C!((!M;-$0@&ULY.S$W2" ;6S$P.S$W
  275. M2" -"AM;,3$[,3=((!M;,3([,3=((!M;,38[,C!((!M;.#LR,$@@&ULY.S(P
  276. M2" ;6S$P.S(P2" ;6S$Q.S(P2" ;6S$R.S(P2" -"AM;,3,[,C!((!M;,30[
  277. M,C!((!M;,34[,C!((!M;,38[,C!((!M;,3([,C!(&ULP;2 ;6S$S.S(P2" ;
  278. M6S$T.S(P2" -"AM;,34[,C!((!M;,38[,C!((!M;,3$[,S5(&ULQ;=\;6S%$
  279. MVQM;,3([,S5(VQM;,30[,S=(WQM;,3,[,S5(VQM;0M\;6S)$WQM;<PT*&UMU
  280. M&ULS-40;6S!M&ULR-35$#0H;6S)*&ULT,6T;6S)*&ULT,&T;6S)*&ULT,&T;
  281. M6S)*&ULT,&T;6S)*&ULT,6T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,&T;
  282. M6S)*&ULT,6T;6S)*#0H;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*
  283. M&ULT,6T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,6T;6S)*
  284. M&ULT,&T;6S)*#0H;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,6T;6S)*&ULT
  285. M,&T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,6T;6S)*&ULT,&T;6S)*&ULT
  286. M,&T;6S)*#0H;6S)*&ULT,&T;6S)*&ULT,6T;6S)*&ULT,&T;6S)*&ULT,&T;
  287. M6S)*&ULT,&T;6S)*&ULT,6T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,&T;
  288. M6S)*#0H;6S)*&ULT,6T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*
  289. M&ULT,6T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,6T;6S)*
  290. M#0H;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,6T;6S)*&ULT
  291. M,&T;6S)*&ULT,&T;6S)*&ULT,&T;6S)*&ULT,6T;6S)*&ULT,&T;6S)*#0H;
  292. 06S0P;1M;,DH;6S0P;0T*&ELT
  293.  
  294. end
  295.  
  296.  
  297. Or, another possibility:
  298.  
  299. begin 400 nuke.ans
  300. M&ULT,&T;6S)*&ULR,SLV.4@;6S [,S%MWQM;,D3?&ULR1-L;6S)$VQM;,D3;
  301. M&ULR1-P;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D0;6S%MVQM;,D3;&ULR1-L;
  302. M6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,T0;6S,S;=L;
  303. M6S)$WQM;,D3;&ULR1-L;6S)$&ULS-VW?&ULR1-L;6S)$WQM;,T3;&ULR1-L;
  304. M6S)$VQM;,D3?&ULR1!M;,S-MW!M;,D3;&ULR1-L;6S-$&ULS,6W;&ULR1-L;
  305. M6S)$VQM;,D3;&ULR1!M;,#LS,6W;&ULR1-L;6W,-"AM;=1M;,D3;&ULR1-P;
  306. M6S)$VQM;,D0;6S$[-#%MW1M;,D3<&ULR1-\;6S)$&ULP.S,Q;=L;6S)$VQM;
  307. M,D3;&ULR1!M;,6W;&ULR1-P;6S(R.S<P2!M;,#LS,6W;&ULR1-L;6S)$VQM;
  308. M,D3;&ULR1-\;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1!M;,6W;&ULR
  309. M1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR
  310. M1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULS,VW;&ULR1-\;6S)$&ULS-VW;&ULR
  311. M1-L;6S)$VQM;,D3;&UMS#0H;6W4;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  312. M&ULR1!M;,S-MWAM;,T0;6S,Q;=L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  313. M&ULR1-L;6S)$VQM;,D0;6S [,S%MVQM;,D3;&ULR1-L;6S)$&ULQ;=L;6S)$
  314. M&ULT,6W?&ULR1-\;6S)$&ULT,&W;&ULR1-L;6S)$WQM;,D0;6S [,S%MVQM;
  315. M,D3;&ULR1-P;6S(Q.S8Y2-L;6S)$VQM;,D0;6S%MWQM;,D3;&ULR1-P;6S)$
  316. M&ULP.S,Q;=L;6S-$VQM;,D0;6S%MVQM;,D3;&ULR1-L;6S)$VQM;,D3;&UMS
  317. M#0H;6W4;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  318. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULS-VW<&ULR1-L;6S)$W!M;,D3;
  319. M&ULR1-P;6S)$VQM;,D3;&ULR1-P;6S)$&ULS,VW>&ULR1!M;,S%MVQM;,D3;
  320. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D0;
  321. M6S0Q;=P;6S)$&ULP.S,Q;=L;6S)$WQM;,D3;&ULR1-L;6S)$VQM;,D0;6S%M
  322. MW!M;,D0;6S0Q;=P;6S)$W!M;,D0;6S0P;1M;<PT*&UMU&ULT,&W;&ULR1!M;
  323. M,#LS,6W;&ULR1-L;6S(P.S8Y2!M;,6W<&ULR1-P;6S)$VQM;-D0;6S [,S%M
  324. MW!M;,D3;&ULR1-L;6S)$&ULQ;=L;6S)$VQM;,D3<&ULR1-L;6S)$VQM;,D3;
  325. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  326. M&ULR1!M;,S-MVQM;,D3?&ULR1-X;6S)$&ULS-VW;&ULR1-L;6S)$VQM;,D0;
  327. M6S,S;=L;6S)$WAM;,D0;6S,Q;=L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  328. M&ULR1-L;6S)$VQM;<PT*&UMU&ULR1-L;6S)$VQM;,D3;&ULR1!M;-#%MWAM;
  329. M-T0;6S [,S%MW!M;,D3<&ULR1-L;6S)$VQM;,D3;&ULQ.3LX,$@;6S$[,S!M
  330. MLQM;,3D[-SE(L!M;,D2P&ULR1+$;6S)$L1M;,D2R&ULR1+(;6S)$VQM;,D3;
  331. M&ULR1!M;-#=MLAM;,D2R&ULR1+$;6S)$L1M;,D0;6S!MLQM;-$2S&ULR1!M;
  332. M,3LS,#LT-VVQ&ULR1!M;,#LS,6W<&ULR1-\;6S)$VQM;-$3<&ULR1-P;6S)$
  333. MVQM;,D3;&ULR1!M;,6W;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;<PT*
  334. M&UMU&ULR1-L;6S)$VQM;,D0;6S,S;=L;6S)$VQM;,D3;&ULR1!M;,S=MW1M;
  335. M,D3;&ULR1-L;6S)$VQM;,D0;6S,S;=T;6S)$VQM;,D0;6S,Q;=L;6S)$VQM;
  336. M,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1!M;,#LS,6W;
  337. M&ULR1!M;,3LT,6W<&ULR1-X;6S)$&ULS-SLT-VVP&ULR1!M;,S!M(!M;,D0@
  338. M&ULR1+ ;6S)$L!M;,D2Q&ULR1+$;6S)$&ULT,&VS&ULT1!M;,&VS&ULR1!M;
  339. M,3LS,#LT-VVQ&ULR1+$;6S)$LAM;-#!M&UMS#0H;6W4;6S)$LQM;-D0;6S!M
  340. MLQM;,D0;6S$[,S!ML1M;,D2P&ULR1+ ;6S)$LQM;,3@[.#!(LQM;,3@[-SE(
  341. ML!M;,D2P&ULR1+$;6S)$L1M;,D2R&ULR1+(;6S)$VQM;,D3;&ULR1!M;-#=M
  342. MLAM;,D2R&ULR1+$;6S)$L1M;,D0;6S!MLQM;-$2S&ULR1!M;,3LS,#LT-VVQ
  343. M&ULR1+$;6S)$L!M;,D2P&ULR1!M;,S<[-#!MLQM;-$0;6S!MLQM;,D0;6S$[
  344. M-#=ML1M;,D2Q&ULR1!M;,#LS,6W<&ULR1-L;6S)$VQM;,D0;6S%MVQM;,D3;
  345. M&ULR1-L;6S)$VQM;<PT*&UMU&ULR1-L;6S)$&ULS,VW;&ULR1-T;6S)$VQM;
  346. M,D0;6S,W;=L;6S)$W1M;,D3;&ULR1-L;6S)$WAM;,D0;6S,S;=L;6S)$WAM;
  347. M,D0;6S,Q;=L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D0;6S0Q;=X;6S)$W!M;
  348. M,D0;6S [,S%MW!M;,D0;6S$[,S<[-#=ML1M;,D2Q&ULR1+ ;6S)$L!M;,D0;
  349. M6S,P;2 ;6S)$(!M;,D2P&ULR1+ ;6S)$L1M;,D2Q&ULR1!M;-#!MLQM;-$0;
  350. M6S!MLQM;,D0;6S$[,S [-#=ML1M;,D2Q&ULR1+(;6S)$LAM;-#!M&UMS#0H;
  351. M6W4;6S)$LQM;-40;6S!MLQM;,D0;6S$[,S!ML1M;,D2P&ULR1+ ;6S)$LQM;
  352. M,3<[-S%(LQM;,D0;6S0W;;(;6S)$L1M;,D2Q&ULR1!M;,&VS&ULU1+,;6S)$
  353. M&ULQ.S,P.S0W;;$;6S)$L!M;,D2P&ULR1!M;,S=M(!M;,D0;6S0P;;,;6S-$
  354. M&ULP;;,;6S)$&ULQ.S0W;;$;6S)$L1M;,D2R&ULR1+(;6S)$&ULP.S,Q;=L;
  355. M6S)$&ULQ.S0Q;=T;6S)$&ULT,&W;&ULR1-L;6S)$VQM;,D0;6S,S;=L;6S)$
  356. MVQM;,D3;&ULR1-L;6S)$&ULS-VW=&ULR1-L;6W,-"AM;=1M;,D3;&ULR1-L;
  357. M6S)$&ULS,VW;&ULR1-L;6S)$VQM;,D0;6S,Q;=L;6S)$VQM;,D3;&ULR1!M;
  358. M-#%MW!M;,D0;6S [,S%MVQM;,D3<&ULR1!M;,3LS-SLT-VVR&ULR1+(;6S)$
  359. ML1M;,D0;6S,P.S0P;;,;6S9$&ULS-VVS&ULR1!M;,S [-#=ML!M;,D2Q&ULR
  360. M1+$;6S)$&ULT,&VS&ULT1!M;,&VS&ULR1!M;,3LS,#LT-VVQ&ULR1+$;6S)$
  361. MLAM;,D2R&ULR1!M;-#!MVQM;,D2S&ULT1!M;,&VS&ULR1!M;,3LS,&VQ&ULR
  362. M1+ ;6S)$L!M;,D2S#0H;6S$V.S<Q2+,;6S)$&ULT-VVR&ULR1+$;6S)$L1M;
  363. M,D0;6S!MLQM;-D2S&ULR1!M;,3LS,#LT-VVP&ULR1+ ;6S)$&ULS-VT@&ULR
  364. M1" ;6S)$&ULT,&VS&ULR1!M;,&VS&ULR1!M;,3LT-VVQ&ULR1+$;6S)$LAM;
  365. M,D2R&ULR1!M;,#LS,6W;&ULR1-L;6S)$&ULQ;=L;6S)$VQM;,D3;&ULR1!M;
  366. M,S-MVQM;,D3;&ULR1-T;6S)$VQM;,D3;&ULR1!M;,S=MVQM;,D3;&ULR1-L;
  367. M6S)$VQM;,D0;6S,S;=L;6S)$VQM;,D3>&ULR1!M;,S%MVQM;,D0;6W,-"AM;
  368. M=1M;,#LS,6W;&ULR1-L;6S-$&ULQ.S,W;;,;6S)$&ULT-VVR&ULR1+(;6S)$
  369. ML1M;,D0;6S,P.S0P;;,;6S9$&ULS-VVS&ULR1!M;,S [-#=ML!M;,D2Q&ULR
  370. M1+$;6S)$&ULT,&VS&ULT1!M;,&VS&ULR1!M;,3LS,#LT-VVQ&ULR1+$;6S)$
  371. MLAM;,D2R&ULR1!M;-#!MVQM;,D3;&ULR1+,;6S-$&ULP;;,;6S)$&ULQ.S,P
  372. M;;$;6S)$L!M;,D2P&ULR1+,;6S$U.S@P2+,;6S$U.S<Y2+ ;6S)$L!M;,D2Q
  373. M&ULR1+$;6S)$LAM;,D2R&ULR1-L;6S)$VQM;<PT*&UMU&ULR1!M;-#=MLAM;
  374. M,D2R&ULR1+$;6S)$L1M;,D0;6S!MLQM;-T2S&ULR1!M;,3LS,#LT-VVP&ULR
  375. M1!M;,S=M(!M;,D0@&ULR1+ ;6S)$L!M;,D2Q&ULR1+$;6S)$LAM;,D2R&ULR
  376. M1!M;,#LS,6W;&ULR1!M;,6W;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULS
  377. M,VW;&ULR1-L;6S)$VQM;,D0;6S,W;=L;6S)$WAM;,D3;&ULR1-L;6S)$WAM;
  378. M,D0;6S,S;=L;6S)$VQM;,D3;&ULR1!M;,S%MVQM;,D3>&ULR1!M;,#LS,6W;
  379. M&ULS1!M;,3LS-VVS&UMS#0H;6W4;6S)$&ULT-VVR&ULR1+(;6S)$L1M;,D0;
  380. M6S,P.S0P;;,;6S9$&ULS-VVS&ULR1!M;,S [-#=ML!M;,D2Q&ULR1+$;6S)$
  381. M&ULT,&VS&ULT1!M;,&VS&ULR1!M;,3LS,#LT-VVQ&ULR1+$;6S)$LAM;,D0;
  382. M6S0P;;,;6S)$VQM;,D3;&ULR1+(;6S)$LQM;,D0;6S!MLQM;,D0;6S$[,S!M
  383. ML1M;,D2P&ULR1+ ;6S)$LQM;,30[.#!(LQM;,30[-SE(L!M;,D2P&ULR1+$;
  384. M6S)$L1M;,D2R&ULR1+(;6S)$VQM;,D3;&ULR1!M;-#=MLAM;,D2R&ULT,&T;
  385. M6W,-"AM;=1M;,D0;6S0W;;$;6S)$L1M;,D0;6S!MLQM;-T2S&ULR1!M;,3LS
  386. M,#LT-VVP&ULR1!M;,S=M(!M;,D0@&ULR1+ ;6S)$L!M;,D2Q&ULR1+$;6S)$
  387. MLAM;,D2R&ULR1!M;-#!MLQM;,D0;6S,Q.S0Q;=T;6S)$&ULT,&W;&ULR1-L;
  388. M6S)$VQM;,D3;&ULR1!M;,S-MVQM;,D3;&ULR1-X;6S)$VQM;,D0;6S,W;=L;
  389. M6S)$WQM;,D3;&ULR1-L;6S)$&ULS,VW;&ULR1-L;6S)$WAM;,D0;6S,Q;=L;
  390. M6S)$&ULT,6W>&ULR1!M;,#LS,6W>&ULS1!M;<PT*&UMU&ULQ.S,W;;,;6S)$
  391. M&ULT-VVR&ULR1+(;6S)$L1M;,D0;6S,P.S0P;;,;6S9$&ULS-VVS&ULR1!M;
  392. M,S [-#=ML!M;,D2Q&ULR1+$;6S)$&ULT,&VS&ULT1!M;,&VS&ULR1!M;,3LS
  393. M,#LT-VVQ&ULR1+$;6S)$LAM;,D0;6S0P;;,;6S)$&ULP;;,;6S)$&ULQ.S,P
  394. M;=L;6S)$LAM;,D2R&ULR1+,;6S)$L1M;,D2P&ULR1+ ;6S)$LQM;,3,[-S%(
  395. MLQM;,D0;6S0W;;(;6S)$L1M;,D2Q&ULR1!M;,&VS&ULV1+,;6S)$&ULQ.S,P
  396. M.S0W;; ;6S0P;1M;<PT*&UMU&ULR1!M;-#=ML!M;,D0;6S,W;2 ;6S)$&ULT
  397. M,&VS&ULS1!M;,&VS&ULR1!M;,3LT-VVQ&ULR1+$;6S)$LAM;,D2R&ULR1!M;
  398. M-#!MLQM;,D0;6S [,S%MVQM;,D0;6S%MVQM;,D3;&ULR1-L;6S)$&ULS,VW;
  399. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULS-VW>&ULR1-L;6S)$VQM;,D3;
  400. M&ULR1!M;,S-MVQM;,D3;&ULR1-L;6S)$&ULS,6W;&ULR1-L;6S)$&ULP.S,Q
  401. M;=L;6S-$&ULQ.S,W;;,;6S)$&ULT-VVR&ULR1+(;6S)$L1M;-#!M&UMS#0H;
  402. M6W4;6S)$&ULS,&VS&ULV1!M;,S=MLQM;,D0;6S,P.S0W;; ;6S)$L1M;,D2Q
  403. M&ULR1!M;-#!MLQM;-$0;6S!MLQM;,D0;6S$[,S [-#=ML1M;,D2Q&ULR1+(;
  404. M6S)$&ULT,&VS&ULS1!M;,&VS&ULR1!M;,3LS,&VR&ULR1+(;6S)$L1M;,D2Q
  405. M&ULR1+ ;6S)$L!M;,D2S&ULQ,CLX,$BS&ULQ,CLW.4BP&ULR1+ ;6S)$L1M;
  406. M,D2Q&ULR1+(;6S)$LAM;,D3;&ULR1-L;6S)$&ULT-VVR&ULR1+(;6S)$L1M;
  407. M,D2Q&ULR1!M;,&VS&ULU1+,;6S)$&UMS#0H;6W4;6S$[,S [-#=ML1M;,D2P
  408. M&ULR1+ ;6S)$&ULS-SLT,&VS&ULT1!M;,&VS&ULR1!M;,3LT-VVQ&ULR1+$;
  409. M6S)$LAM;,D2R&ULR1!M;,#LS,6W;&ULR1-\;6S)$&ULQ.S0Q;=\;6S)$&ULT
  410. M,&W;&ULR1-L;6S)$VQM;,D0;6S,S;=L;6S)$W1M;,D3;&ULR1!M;,S=MVQM;
  411. M,D3;&ULR1-\;6S)$VQM;,D3<&ULR1-X;6S)$&ULS,VW;&ULR1-L;6S)$VQM;
  412. M,D0;6S,Q;=L;6S)$&ULT,6W>&ULR1!M;,#LS,6W;&ULR1!M;,3LS-VVS&ULR
  413. M1!M;<PT*&UMU&ULT-VVR&ULR1+(;6S)$L1M;,D0;6S,P.S0P;;,;6S9$&ULS
  414. M-VVS&ULR1!M;,S [-#=ML!M;,D2Q&ULR1+$;6S)$&ULT,&VS&ULT1!M;,&VS
  415. M&ULR1!M;,3LS,#LT-VVQ&ULR1+$;6S)$LAM;,D0;6S0P;;,;6S1$&ULP;;,;
  416. M6S)$&ULQ.S,P;;(;6S)$L1M;,D2Q&ULR1+ ;6S)$L!M;,D2S&ULQ,3LX,$BS
  417. M&ULQ,3LW.4BP&ULR1+ ;6S)$L1M;,D2Q&ULR1+(;6S)$LAM;,D3;&ULR1-L;
  418. M6S)$&ULT-VVR&ULR1+(;6S)$L1M;,D2Q&ULR1!M;-#!M&UMS#0H;6W4;6S0W
  419. M;1M;,&VS&ULU1+,;6S)$&ULQ.S,P.S0W;;$;6S)$L!M;,D2P&ULR1!M;,S<[
  420. M-#!MLQM;-$0;6S!MLQM;,D0;6S$[-#=ML1M;,D2Q&ULR1+(;6S)$&ULP.S,Q
  421. M;=L;6S)$&ULQ.S0Q;=\;6S)$&ULT,&W;&ULR1-L;6S)$VQM;,D3;&ULR1!M;
  422. M,S-MWQM;,D3<&ULR1-L;6S)$VQM;,D0;6S,W;=T;6S)$VQM;,D3;&ULR1-L;
  423. M6S)$VQM;,D0;6S,S;=X;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D0;6S,Q;=L;
  424. M6S)$&ULP.S,Q;=L;6S)$&ULQ;=\;6W,-"AM;=1M;,D0;6S [,S%MWQM;,D3?
  425. M&ULR1!M;,3LS-SLT-VVQ&ULR1!M;,S [-#!MLQM;-D0;6S,W;;,;6S)$&ULS
  426. M,#LT-VVP&ULR1+$;6S)$L1M;,D0;6S0P;;,;6S1$&ULP;;,;6S)$&ULQ.S,P
  427. M.S0W;;$;6S)$L1M;,D2R&ULR1!M;-#!MLQM;-40;6S!MLQM;,D0;6S$[,S!M
  428. ML1M;,D2Q&ULR1+ ;6S)$L!M;,D2S&ULQ,#LU-T@;6S [,S%MVQM;,D3;&ULR
  429. M1!M;,3LT,6W?&ULR1!M;-#!MWQM;,D0;6S0Q;=\;6S)$WQM;,D0;6S0P;=L;
  430. M6S)$&UMS#0H;6W4;6S,S;=\;6S)$WQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR
  431. M1-L;6S)$W!M;,D0;6S,W;=L;6S)$VQM;,D3>&ULR1-L;6S)$W!M;,D3;&ULR
  432. M1-\;6S)$&ULS,VW;&ULR1-L;6S)$VQM;,D3;&ULR1!M;,S%MVQM;,D3;&ULR
  433. M1-L;6S)$VQM;,D3?&ULR1!M;-#%MWQM;,D0;6S0P;=\;6S)$&ULP.S,Q;=\;
  434. M6S)$WQM;,D3;&ULY.S8P2-\;6S)$VQM;,D3;&ULR1!M;,6W?&ULR1-L;6S)$
  435. MVQM;,D0;6S,S;=\;6S)$WQM;,D3;&ULR1-L;6S)$VQM;,D0;6W,-"AM;==L;
  436. M6S)$VQM;,D3;&ULR1-L;6S)$W1M;,D3;&ULR1!M;,S=MVQM;,D3;&ULR1-L;
  437. M6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULS,VW;&ULR1-L;
  438. M6S)$VQM;,D3;&ULR1-L;6S)$WQM;,D0;6S,Q;=L;6S)$VQM;,D3;&ULR1-L;
  439. M6S)$VQM;,D3;&ULR1-L;6S)$&ULP.S,Q;=L;6S)$&ULQ.S0Q;=\;6S)$&ULP
  440. M.S,Q;=L;6S)$VQM;.#LV-4C?&ULR1-\;6S)$VQM;,D0;6S%MWQM;,D0;6S0Q
  441. M;=\;6S)$&ULT,&W;&ULR1-L;6S)$VQM;<PT*&UMU&ULR1-L;6S)$VQM;,D0;
  442. M6S,S;=L;6S)$VQM;,D3;&ULR1-L;6S)$W!M;,D3=&ULR1-L;6S)$VQM;,D3;
  443. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULS-VW>&ULR1-L;6S)$W!M;,D3;
  444. M&ULR1-L;6S)$WQM;,D3;&ULR1-L;6S)$&ULS,VW=&ULR1-L;6S)$VQM;,D3;
  445. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$WQM;,D3;&ULR1-L;6S)$&ULS,6W;
  446. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULT,6W?&ULR1-\;6S)$&ULP.S,Q
  447. M;=\;6S)$VQM;<PT*&UMU&ULR1-L;6S1$VQM;,D3?&ULW.S<W2-\;6S)$_AM;
  448. M-$3?&ULR1-\;6S)$WQM;,D3?&ULR1-L;6S)$&ULQ.S0Q;=\;6S)$WQM;,D3?
  449. M&ULR1!M;-#!MVQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  450. M&ULR1-L;6S)$&ULS,VW?&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  451. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1!M;,S=MW!M;,D3;
  452. M&ULR1-L;6S)$W1M;,D3;&ULR1-L;6S)$VQM;,D3<&ULR1!M;,S-M&UMS#0H;
  453. M6W7;&ULR1-L;6S)$VQM;,D3;&ULR1-T;6S)$VQM;,D3;&ULR1-P;6S)$VQM;
  454. M,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULS,6W;&ULR1-L;6S)$VQM;
  455. M,D3;&ULR1-L;6S)$VQM;,D3;&ULR1!M;-#%MWQM;,D0;6S [,S%MWQM;,D3?
  456. M&ULT1-\;6S)$WQM;-CLW-TC<&ULR1-P;6S)$W!M;,D3<&ULR1-P;6S)$&ULQ
  457. M;=L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR
  458. M1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D0;6W,-"AM;==L;6S)$VQM;,D0;
  459. M6S,S;=P;6S)$W!M;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  460. M&ULR1-L;6S)$W!M;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-T;6S)$&ULS-VW<
  461. M&ULR1!M;,S-MWQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-P;6S)$VQM;,D3;
  462. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$WQM;,D3;
  463. M&ULR1-L;6S)$&ULS,6W;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  464. M&ULR1-L;6S)$VQM;<PT*&UMU&ULR1-L;6S)$VQM;,D0;6S [,S%MVQM;,D3?
  465. M&ULR1-L;6S)$WQM;,D3;&ULU1-P;6S4[-C9(W!M;,D3<&ULR1-L;6S)$VQM;
  466. M,D3;&ULR1!M;,3LT,6W<&ULR1!M;-#!MVQM;,D3;&ULR1-L;6S)$VQM;,D3;
  467. M&ULR1-L;6S)$VQM;,D0;6S,S;=P;6S)$W!M;,D3;&ULR1-L;6S)$VQM;,D3;
  468. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  469. M&ULR1-L;6S)$W!M;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;<PT*
  470. M&UMU&ULR1-L;6S)$W!M;,D3<&ULR1-P;6S)$W!M;,D0;6S,Q;=L;6S)$VQM;
  471. M,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULP
  472. M.S,Q;=P;6S)$&ULQ.S0Q;=P;6S)$&ULP.S,Q;=L;6S)$VQM;,D3?&ULR1-L;
  473. M6S0[-S)(W!M;,3)$WQM;,D3;&ULR1-L;6S)$&ULQ;=L;6S)$VQM;,D3;&ULR
  474. M1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D0;6S,S
  475. M;=P;6S)$W!M;,D3<&ULR1-P;6S)$VQM;,D3;&UMS#0H;6W4;6S)$VQM;,D3;
  476. M&ULR1-P;6S)$W!M;,D3<&ULR1-P;6S)$W!M;,D3<&ULR1-P;6S)$&ULS,6W;
  477. M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;
  478. M&ULR1-L;6S)$&ULT,6W<&ULR1-P;6S)$W!M;,D0;6S [,S%MW!M;,D3;&ULR
  479. M1-L;6S)$W!M;,D3<&ULY1-\;6S,[-C=(WQM;,D3;&ULQ,$3<&ULR1-P;6S)$
  480. MVQM;,D3;&ULR1!M;,3LT,6W<&ULR1-P;6S)$W!M;,D0;6S0P;=L;6S)$VQM;
  481. M,D3;&ULR1-L;6S)$VQM;<PT*&UMU&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$
  482. MVQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D0;6S0Q;=P;6S)$
  483. MW!M;,D3<&ULR1-P;6S)$W!M;,D3<&ULR1!M;,#LS,6W;&ULR1-L;6S)$VQM;
  484. M,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-P;6S)$VQM;,D3<&ULR.S0W2-P;6S)$
  485. MW!M;,D3<&ULR1-P;6S)$VQM;,D3;&ULR1!M;,3LT,6W<&ULR1-P;6S)$&ULP
  486. M.S,Q;=L;6S)$W!M;,D3<&ULR1-P;6S5$W!M;,D3<&ULR1-P;6S)$W!M;,D3<
  487. M&UMS#0H;6W4;6S(P1-P;6S$U.S5(LQM;,38[-4BS&ULQ-SLU2+,;6S$X.S5(
  488. MLQM;,3D[-4BS&ULQ,3LQ-$BS&ULQ,CLQ-$BS&ULQ,SLQ-$BS&ULQ-#LQ-$BS
  489. M&ULQ-3LQ-$BS&ULQ-CLQ-$BS&ULQ-SLQ-$BS&ULQ.#LQ-$BS&ULQ.3LQ-$BS
  490. M&ULQ,3LR,4@;6S%MLQM;,3([,C%(LQM;,3,[,C%(LQM;,30[,C%(LQM;,34[
  491. M,C%(LQM;,38[,C%(LQM;,3<[,C%(LQM;,3([,S!(LQM;,3,[,S!(LQM;,30[
  492. M,S!(LQM;,34[,S!(LQM;,38[,S!(LQM;,3,[-3%(LPT*&ULQ-#LU,4BS&ULQ
  493. M,3LU-D@;6S [,S%MLQM;,3([-39(LQM;,3,[-39(LQM;,38[-39(LQM;,3<[
  494. M-39(LQM;,3@[-39(LQM;,3$[-3E(&ULQ;;,;6S$R.S4Y2+,;6S$S.S4X2+,;
  495. M6S$V.S4W2+,;6T*S&UM"LQM;,3$[-C=(&ULP.S,Q;;,;6S$R.S8W2+,;6S$S
  496. M.S8W2+,;6S$T.S8W2+,;6S$U.S8W2+,;6S$V.S8W2+,;6S$W.S8W2+,;6S$X
  497. 8.S8W2+,;6S$Y.S8W2+,;6S!M&ULR-35$
  498.  
  499. end
  500.  
  501.